Get Basic team data
library(plotly)
Attache Paket: ‘plotly’
The following object is masked from ‘package:ggplot2’:
last_plot
The following object is masked from ‘package:stats’:
filter
The following object is masked from ‘package:graphics’:
layout
Get season Stats
getTeamSeasonStats(parameters = list(TeamID = basicTeamInfo %>% select(TEAM_ID), Season = "2016-17")) %>%
bind_rows() %>%
mutate(SEASON_YEAR = "2016-17") -> teamStatsSeason; teamStatsSeason
Unequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to character
Plot Single Team stats

PLot all team stats
plot_teamStats("warriors", "AST")
debugging in: plot_teamStats("warriors", "AST")
debug bei #1:{
ggplotly(teamStatsComplete %>% filter(GROUP_SET == "Overall") %>%
ggplot(aes_(x = "SEASON_YEAR", y = statistic, group = "team",
col = "team")) + geom_line(alpha = 0.2) + geom_line(data = teamStatsComplete %>%
filter(GROUP_SET == "Overall") %>% filter_(team == team),
aes_(x = "SEASON_YEAR", y = statistic, group = 1)))
}
team
[1] "warriors"
teamStatsComplete %>%
filter(GROUP_SET == "Overall")
teamStatsComplete %>%
filter(GROUP_SET == "Overall") %>% filter_(team == team)
n
debug bei #2:ggplotly(teamStatsComplete %>% filter(GROUP_SET == "Overall") %>%
ggplot(aes_(x = "SEASON_YEAR", y = statistic, group = "team",
col = "team")) + geom_line(alpha = 0.2) + geom_line(data = teamStatsComplete %>%
filter(GROUP_SET == "Overall") %>% filter_(team == team),
aes_(x = "SEASON_YEAR", y = statistic, group = 1)))
n
We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKIyBHZXQgQmFzaWMgdGVhbSBkYXRhCgpgYGB7cn0KbGlicmFyeShkcGx5cikKbGlicmFyeShwbG90bHkpCnRlYW1Db2RlIDwtICJtYXZlcmlja3MiCnRlYW1zX2xpc3QgJT4lIGZpbHRlcihURUFNX0NPREUgPT0gdGVhbUNvZGUpICU+JSBtdXRhdGVfaWYoaXMuZmFjdG9yLCBhcy5jaGFyYWN0ZXIpIC0+IGJhc2ljVGVhbUluZm87IGJhc2ljVGVhbUluZm8KCmBgYAoKIyBHZXQgc2Vhc29uIFN0YXRzCmBgYHtyfQpnZXRUZWFtU2Vhc29uU3RhdHMocGFyYW1ldGVycyA9IGxpc3QoVGVhbUlEID0gYmFzaWNUZWFtSW5mbyAlPiUgc2VsZWN0KFRFQU1fSUQpLCBTZWFzb24gPSAiMjAxNi0xNyIpKSAlPiUgCiAgYmluZF9yb3dzKCkgJT4lIAogIG11dGF0ZShTRUFTT05fWUVBUiA9ICIyMDE2LTE3IikgLT4gdGVhbVN0YXRzU2Vhc29uOyB0ZWFtU3RhdHNTZWFzb24KCmBgYAoKYGBge3J9CnNlYXNvbnMgPC0gYygiMjAxNi0xNyIsICIyMDE1LTE2IiwgIjIwMTQtMTUiLCAiMjAxMy0xNCIsICIyMDEyLTEzIiwgIjIwMTEtMTIiLCAiMjAxMC0xMSIsICIyMDA5LTEwIiwgIjIwMDgtMDkiLCAiMjAwNy0wOCIpCnRlYW1ERiA8LSBjcmVhdGVfVGVhbVNlYXNvbkRGKGJhc2ljVGVhbUluZm8gJT4lIHNlbGVjdChURUFNX0lEKSwgc2Vhc29ucyA9IHNlYXNvbnMpOyB0ZWFtREYKCnRlYW1TdGF0c0NvbXBsZXRlIDwtIGJpbmRfcm93cyhsYXBwbHkoMTpsZW5ndGgoYWxsdGVhbXNERiksIGZ1bmN0aW9uKHgpIGFsbHRlYW1zREZbW3hdXSAlPiUgbXV0YXRlKHRlYW0gPSBuYW1lcyhhbGx0ZWFtc0RGKVtbeF1dKSkpCmhlYWQodGVhbVN0YXRzQ29tcGxldGUpCmBgYAoKCiMgUGxvdCBTaW5nbGUgVGVhbSBzdGF0cwoKYGBge3J9CnRlYW1ERiAlPiUgCiAgZmlsdGVyKEdST1VQX1NFVCA9PSAiT3ZlcmFsbCIpICU+JQogIGdncGxvdChhZXMoeCA9IFNFQVNPTl9ZRUFSLCB5ID0gVywgZ3JvdXAgPSAxKSkgKyBnZW9tX2xpbmUoKQpgYGAKCiMgUExvdCBhbGwgdGVhbSBzdGF0cwoKYGBge3J9CnBsb3RfdGVhbVN0YXRzIDwtIGZ1bmN0aW9uKHRlYW0sIHN0YXRpc3RpYykgewogIGdncGxvdGx5KHRlYW1TdGF0c0NvbXBsZXRlICU+JQogICAgZmlsdGVyKEdST1VQX1NFVCA9PSAiT3ZlcmFsbCIpICU+JQogIGdncGxvdChhZXNfKHggPSAiU0VBU09OX1lFQVIiLCB5ID0gc3RhdGlzdGljLCBncm91cCA9ICJ0ZWFtIiwgY29sID0gInRlYW0iKSkgKyAKICAgIGdlb21fbGluZShhbHBoYSA9IDAuMikgKwogICAgZ2VvbV9saW5lKGRhdGEgPSB0ZWFtU3RhdHNDb21wbGV0ZSAlPiUgZmlsdGVyKEdST1VQX1NFVCA9PSAiT3ZlcmFsbCIpICU+JSBmaWx0ZXJfKHRlYW0gPT0gdGVhbSksIAogICAgICAgICAgICAgIGFlc18oeCA9ICJTRUFTT05fWUVBUiIsIHkgPSBzdGF0aXN0aWMsIGdyb3VwID0gMSkpKQp9CnBsb3RfdGVhbVN0YXRzKCJ3YXJyaW9ycyIsICJBU1QiKQogIApgYGAKCgoKCg==